home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MS Java Folders.xpl < prev    next >
Text File  |  2002-04-14  |  2KB  |  81 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="4"
  3. "COUNT"="4"
  4. "UIPATH 1"="System\File System\Folders\System"
  5. "NAME"="MS Java Virtual Machine (VM) Folders"
  6. "VERSION"="1.14"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Trusted Classes"
  9. "TEXT 2"="Trusted Libs"
  10. "TEXT 3"="Classpath"
  11. "TEXT 4"="Libs"
  12. "WARNING"="1"
  13. "DESCRIPTION 1"="!WARNING! Take care when editing these paths! You can destroy your entire Java installation with this!"
  14. "DESCRIPTION 2"="When the VM tries to find a specified class to load it, it searches several directories. First, it looks inside its internal database (Java Package Manager Database)."
  15. "DESCRIPTION 3"="Then it looks inside every directory, that can be configured here, in the same order they are shown. If it still can't find the class, the VM finally tries to read the environment variable CLASSPATH. "
  16. "DESCRIPTION 4"="To speed up loading a class, you might consider moving it in the "Trusted Classes" directory."
  17. "DESCRIPTION 5"="!WARNING! Take care when editing these paths! You can destroy your entire Java installation with this!"
  18. "AUTHOR"="Xteq Systems"
  19. "CONTACTURL"="http://www.xteq.com"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"="Thanks to Suda, Ross [rsuda@fcg.com] for the bug notice."
  22.  
  23.  
  24. sPath="HKLM\SOFTWARE\Microsoft\Java VM\"
  25.  
  26. sTC="TrustedClasspath"
  27. sTL="TrustedLibsDirectory"
  28. sC="Classpath"
  29. sL="LibsDirectory"
  30.  
  31. Sub Plugin_Initialize 
  32.  if RegPathExists(sPath) then
  33.   s=RegReadValue(sPath & sTC)
  34.   SetUIElement 1,s
  35.  
  36.   s=RegReadValue(sPath & sTL)
  37.   SetUIElement 2,s
  38.  
  39.   s=RegReadValue(sPath & sC)
  40.   SetUIElement 3,s
  41.  
  42.   s=RegReadValue(sPath & sL)
  43.   SetUIElement 4,s
  44.  
  45.  else
  46.   Disable
  47.  end if
  48. End Sub
  49.  
  50.  
  51. Sub Plugin_CheckData(ElementIndex)
  52. End Sub
  53.  
  54.  
  55.  
  56. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  57.  s=GetUIElement(1)
  58.  Call RegWriteValue(sPath & sTC,s,4)
  59.  
  60.  s=GetUIElement(2)
  61.  Call RegWriteValue(sPath & sTL,s,4)
  62.  
  63.  s=GetUIElement(3)
  64.  Call RegWriteValue(sPath & sC,s,4)
  65.  
  66.  s=GetUIElement(4)
  67.  Call RegWriteValue(sPath & sL,s,4)
  68.  
  69.  
  70.  
  71.  'I don't think this is necessary. Or is it???
  72.  'Restart 
  73. End Sub
  74.  
  75.  
  76. Sub Plugin_Terminate 
  77. End Sub
  78.  
  79.  
  80.  
  81.